home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / clisp.zip / REXX.FAS < prev    next >
Text File  |  1994-02-05  |  4KB  |  79 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 12. LISP:NIL 290893.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D5 37 01 30 D6 19 01)
  4.    (REXX-RUN-COMMAND REXX-SEND-COMMAND REXX-WAIT-SENT-COMMAND REXX-DO-COMMAND REXX-LOOP)
  5.   )
  6. #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "SYSTEM")
  7. #Y(#:TOP-LEVEL-FORM-4 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
  8.    (SPECIAL *REXX-OUTMSG-LIST*) *REXX-OUTMSG-LIST*
  9.   )
  10. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) REXX-ADD-INDEX
  11.    REMOVE-OLD-DEFINITIONS
  12.    #Y(REXX-ADD-INDEX #18Y(01 00 01 00 00 08 3C 01 A9 9A 76 0E 00 58 0F 00 19 03) *REXX-OUTMSG-LIST*
  13.   )  )
  14. #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) REXX-FIND-INDEX
  15.    REMOVE-OLD-DEFINITIONS
  16.    #Y(REXX-FIND-INDEX #16Y(01 00 00 00 00 02 A8 67 00 D6 37 02 30 BA 19 02) *REXX-OUTMSG-LIST*
  17.       #.#'EQUAL
  18.   )  )
  19. #Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) REXX-DELETE-ENTRY
  20.    REMOVE-OLD-DEFINITIONS
  21.    #Y(REXX-DELETE-ENTRY #19Y(01 00 00 00 00 02 A8 67 00 37 07 C1 F8 31 4B 0F 00 19 02)
  22.       *REXX-OUTMSG-LIST* #.#'EQ
  23.   )  )
  24. #Y(#:TOP-LEVEL-FORM-8 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  25.    REXX-SEND-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION
  26.    "Starts asynchronous execution of a rexx command." %SET-DOCUMENTATION
  27.    #Y(REXX-SEND-COMMAND
  28.       #28Y(01 00 00 00 81 00 05 00 00 00 95 05 AF A0 73 01 8E 00 03 00 19 09 14 2E 06 15 19 08)
  29.       :RESULT :STRING :TOKEN :ASYNC :IO %REXX-PUT REXX-ADD-INDEX
  30.   )  )
  31. #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) REXX-NEXT-EVENT
  32.    REMOVE-OLD-DEFINITIONS
  33.    #Y(REXX-NEXT-EVENT #20Y(00 00 00 00 00 01 1A 04 16 01 2D 01 2D 00 14 8F 00 76 19 02) %REXX-GET
  34.       %REXX-WAIT-INPUT
  35.   )  )
  36. #Y(#:TOP-LEVEL-FORM-10 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  37.    REXX-LOOP REMOVE-OLD-DEFINITIONS FUNCTION "Rexx driver loop. Optional message to wait for."
  38.    %SET-DOCUMENTATION
  39.    #Y(REXX-LOOP
  40.       #31Y(00 00 01 00 00 07 00 2A 01 3A 02 01 00 0B 00 00 46 00 0A AA AA 69 01 02 30 56 47 19 03
  41.            19 03
  42.           )
  43.       REXX-LOOP
  44.       #Y(LISP::REXX-LOOP-1
  45.          #121Y(00 00 00 00 00 01 2D 02 14 98 57 74 8A 05 39 5F 50 80 52 46 04 80 4D 37 01 6E 69 50
  46.                18 AC 2B 05 01 10 06 A4 57 74 37 05 6D 7E 6D 5C AD 30 84 11 A9 31 6A 3E 51 63 00 00
  47.                37 01 31 6F 52 16 01 FB 47 51 1A 21 98 57 48 01 90 00 6B 03 8F 00 05 14 91 02 30 AA
  48.                16 01 90 00 65 00 01 88 FF 66 00 19 02 C7 1A 0B 51 05 00 01 74 05 00 00 1B 73 C8 14
  49.                63 00 00 2C 03 09 52 19 03
  50.               )
  51.          NIL NIL REXX-NEXT-EVENT REXX-FIND-INDEX TRY-REP
  52.          #Y(LISP::REXX-LOOP-1-1 #9Y(00 00 00 00 01 16 00 48 00) NIL) *ERROR-HANDLER* 0. 5.
  53.          %REXX-REPLY
  54.   )  )  )
  55. #Y(#:TOP-LEVEL-FORM-11 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  56.    REXX-WAIT-SENT-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION "Waits for command termination."
  57.    %SET-DOCUMENTATION
  58.    #Y(REXX-WAIT-SENT-COMMAND
  59.       #34Y(01 00 00 00 00 02 1A 09 D6 AA 5E 01 A9 2E 03 16 01 A8 6B 00 8F 00 71 98 57 1C 71 A7 2E
  60.            02 98 57 19 03
  61.           )
  62.       REXX-FIND-INDEX "No waiting for ~S possible." REXX-DELETE-ENTRY REXX-LOOP
  63.   )  )
  64. #Y(#:TOP-LEVEL-FORM-12 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  65.    REXX-DO-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION "Executes command, waiting for result."
  66.    %SET-DOCUMENTATION
  67.    #Y(REXX-DO-COMMAND
  68.       #27Y(01 00 00 00 C1 00 00 00 00 00 95 00 AA 9B 73 01 8E 00 03 00 19 04 14 2E 01 19 04)
  69.       REXX-SEND-COMMAND REXX-WAIT-SENT-COMMAND
  70.   )  )
  71. #Y(#:TOP-LEVEL-FORM-13 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  72.    REXX-RUN-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION
  73.    "Runs a rexx command asynchronously, no return code." %SET-DOCUMENTATION
  74.    #Y(REXX-RUN-COMMAND
  75.       #32Y(01 00 00 00 80 1C 02 00 00 00 3C 02 3C 01 AA D5 AB D6 AC D7 60 2C 07 03 1B 03 00 19 04
  76.            02 19 04
  77.           )
  78.       :STRING :TOKEN :ASYNC REXX-DO-COMMAND
  79.   )  )